home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / blitz-list200994.lha / blitz-list / 000497_blitz-list-request_Wed Jul 20 08:15:36 1994.msg < prev    next >
Internet Message Format  |  1994-09-20  |  2KB
  1. Received: from triode.apana.org.au (triode.apana.org.au [202.12.88.58]) by kantti.helsinki.fi (8.6.9/8.6.5) with SMTP id IAA05743 for <blitz-list@helsinki.fi>; Wed, 20 Jul 1994 08:14:04 +0300
  2. Date: Wed, 20 Jul 1994 15:11:19 +0000
  3. From: Neil Miller <neil@triode.apana.org.au>
  4. Subject: Re: Screen Flash Problem
  5. To: tom duncan <duncan@zeus.usq.edu.au>
  6. cc: blitz-list@helsinki.fi
  7. In-Reply-To: <199407192318.AA12417@zeus>
  8. Message-ID: <Pine.3.89.9407201533.G5138-0100000@triode>
  9. MIME-Version: 1.0
  10. Content-Type: TEXT/PLAIN; charset=US-ASCII
  11. X-Status: 
  12. Status: RO
  13.  
  14. On Tue, 19 Jul 1994, tom duncan wrote:
  15.  
  16. > OK guys,
  17. >     I know this must be easy but how do I stop the screen flashing
  18. > when I load in an image onto another hidden screen.
  19. > I have tried moving the screen down out of the way but the flash still
  20. > happens.
  21. > 
  22. > Here is the code.
  23. > 
  24. > WBStartup
  25. > NoCli
  26. > 
  27. > 
  28. > S.b=2
  29. > 
  30. > 
  31. > For a=1 To 20
  32. >    f$="CDX:Temp/F/1.lres"
  33. >    Gosub Action19
  34. >    ShowScreen S : VWait 100
  35. >    f$="CDX:Temp/F/2.mres"
  36. >    Gosub Action19 : VWait 100
  37. >    ShowScreen S
  38. > Next
  39. > End
  40. > 
  41. > 
  42. > Action19:
  43. >    ; Load Screen
  44. >    S=5-S
  45. >    ; load or initialise a screen into S
  46. >    If Len(f$)>0 AND Exists(f$)
  47. >       ; Load image
  48. >       ILBMInfo f$
  49. >       w.w=ILBMWidth
  50. >       h.w=ILBMHeight
  51. >       d.w=ILBMDepth
  52. >       Id.l=ILBMViewMode
  53. >       Free Window S : Free Screen S : Free BitMap S
  54. >       BitMap S,w,h,d
  55. >       Screen S,0,0,w,h,d,Id,"",1,2,S
  56.                    ^Try setting this to 800 or so that way it's hidden 
  57.                     off the bottom of the screen. 
  58.                     Then do a screen move S,0,-800 to re-display it.
  59. >       PalRGB S,0,0,0,0
  60. >       HideScreen S
  61. >       ; Now Open Window onto Screen
  62. >       Window S,0,0,w,h,$0900,"",1,2,S
  63. >       LoadScreen S,f$,S
  64. >       Use Palette S
  65. >       OK.b=True
  66. >    Else
  67. >       r=Request("ERROR","Cant open file "+f$,"BYE") : End
  68. >       OK.b=False
  69. >    EndIf
  70. > Return
  71. > 
  72. > Any ideas anyone
  73. > And any quicker ways to load an IFF image.
  74. > 
  75. > Tom Duncan
  76. > duncan@usq.edu.au
  77. > 
  78. > 
  79. > 
  80. > 
  81.                           \|/
  82.                          -O"O-
  83. ----------------------oOO-(_)-OOo------------------------
  84.                          T E X
  85.                 neil@triode.apana.org.au
  86.